home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: R-H-S / R-H-S Tools 27 (19xx)(Reiner Hobbold Software)(DE)(PD).zip / R-H-S Tools 27 (19xx)(Reiner Hobbold Software)(DE)(PD).adf / ! Lesen ! (.txt) next >
AmigaBASIC Source Code  |  1978-01-01  |  8KB  |  167 lines
  1. SCREEN 1,640,225,2,2
  2. WINDOW 1," Quizmaster      V 2.0        Information        written in 1989 by F. Zöllner",,0,1
  3. PALETTE 0,1,1,1:PALETTE 1,0,0,0:PALETTE 2,0.5,0.5,0.5
  4. Seite1:
  5. PRINT
  6. PRINT "               QUIZMASTER"
  7. PRINT "              ············"
  8. PRINT "   Bei diesem Programm handelt es sich um Wissensspiel für einen, zwei, drei"
  9. PRINT "   oder vier Mitspieler." 
  10. PRINT
  11. PRINT "   Das Spielkonzept ist relativ simpel, mach aber (vor allem bei 2, 3 oder 4"
  12. PRINT "   Mitspielern) gerades deswegen viel Spaß und ist einfach zu erlernen:"
  13. PRINT 
  14. PRINT "     Alle Spieler  kommen  regelmäßig an die Reihe  (der Joystick sollte von"
  15. PRINT "     Spieler 1 and Spieler 2 weitergereicht werden usw.)."       
  16. PRINT "     Am Anfang seines  Spielzuges muß der Spieler sich für eines von vierzig"
  17. PRINT "     Fragefächern in einem Gitterraster entscheiden (Freie Felder sind durch"
  18. PRINT "     ein `?' gekennzeichnet, doch dazu später mehr). Hat er dies  getan wird"
  19. PRINT "     vom Computer eine Frage in den Speicher geladen.Nun zeigt Ihr Amiga die"
  20. PRINT "     Frage und vier Antworten auf.Der Spieler wählt nun die seines Erachtens"
  21. PRINT "     richtige Antwort aus und wählt sie an. Dies muß getan werden  bevor das"
  22. PRINT "     durch einen lila Streifen angezeigte Zeitlimit abgelaufen ist.  Schafft"
  23. PRINT "     der Spieler das  Antworten nicht im  Zeitlimit oder beantwortet  er die"
  24. PRINT "     Frage falsch erhält er  keine Punkte und der nächste  Spieler ist dran."
  25. PRINT "     Beantwortet er  die Frage aber richtig so bekommt er je nach verbrauch-"
  26. PRINT "     ter Zeit  mehr oder weniger  Punkte  gutgeschrieben  bevor der  nächste"
  27. PRINT "     Spieler dran ist."
  28. GOTO Blaettern
  29.  
  30. Seite2:
  31. PRINT
  32. PRINT "     Dies wird solange fortgesetzt bis alle vierzig Felder 'geleert`  worden"
  33. PRINT "     sind, dann wird durch den Punktestand der Sieger ermittelt."
  34. PRINT 
  35. PRINT "   Besondere Fragefelder:"
  36. PRINT "     Nicht alle Felder  enthalten einfache Fragen.  Es gibt  zwei Arten  von"
  37. PRINT "     Sonderfeldern: (1) Jokerfelder"
  38. PRINT "                    (2) Risikofelder"
  39. PRINT "     Zu (1) dürften nicht  viele Fragen offenstehen (der betroffene Spieler"
  40. PRINT "     erhält 200 Punkte), wogegen (2) erst erläutert werden muß..."
  41. PRINT "     Der betroffene Spieler kann auswählen wieviel seiner bisher erkämpften"
  42. PRINT "     Punkte er setzen will. Die gesetzten Punkte werden vom Punktekonto ab-"
  43. PRINT "     gezogen  und der Spieler erhält eine Frage. Kann er diese  nicht bean-"
  44. PRINT "     tworten fährt der Computer fort und der nächste Spieler ist dran.  Be-"
  45. PRINT "     antwortet  er sie aber richtig bekommt er das Doppelte  der gesetzten"
  46. PRINT "     Punkte zurückerstattet.  --- Auf diese Weise kann man schnell zu viel"
  47. PRINT "     Kohle..ähh..Punkten kommen aber man kann so auch auf einen Schlag vom"
  48. PRINT "     ersten auf den letzten Platz rutschen."
  49. PRINT
  50. PRINT
  51. PRINT "   Das Wesentliche des Spiels wäre somit erklärt."
  52. PRINT "          Nun aber zu den Feinheiten................."
  53. GOTO Blaettern
  54.  
  55. Seite3:
  56. PRINT
  57. PRINT "   Während  des Spielens ist folgende  Tastaturbelegung beim  wählen eines"
  58. PRINT "   Fragefeldes gültig:"
  59. PRINT
  60. PRINT "     1) Durch [F1] wird ein(unter Umständen nerviger) Teil des Sounds ein-"
  61. PRINT "        und ausgeschalten. Der  Zustand dieses Reglers wird durch ein  `S'"
  62. PRINT "        rechts des Fragenrasters angezeigt."
  63. PRINT "     2) Durch [F5], [F6] und [F7] wird der Rot-, Grün-,bzw. Blauanteil der"
  64. PRINT "        ersten Hintergrundfarbe gesteigert,durch [5], [6], bzw.[7] wird er"
  65. PRINT "        vermindert."
  66. PRINT "     3) [F8], [F9], [F10] und [8], [9], [0]: Gleiches wie bei vorhergehen-"
  67. PRINT "        den Punkt, bloß für die zweite Hintergrundfarbe."
  68. PRINT "     4) Mit [DEL] altiviert man den Unterscheidungsmodus: Wenn ein  Frage-"
  69. PRINT "        feld angewählt  wurde wird das darin enthaltene Fragezeichen (`?')"
  70. PRINT "        normal durch einen Punkt (`·') ersetzt.Ist aber der U-Modus einge-"
  71. PRINT "        schaltet werden nur  Fragen durch einen Punkt ersetzt.  Bei Jokern"
  72. PRINT "        erscheint nun ein `J', bei Risiken ein `R'. Der Zustand dieses Re-"
  73. PRINT "        glers wird durch ein `U' am rechten Rand des Rasters angezeigt."
  74. PRINT "     5) Zuguterletzt  kann man durch [HELP] den R-Modus einsetzten.  Im R-"
  75. PRINT "        Modus  wird nach einer falschen Antwort immer  die richtige  ange-"
  76. PRINT "        zeigt. Diesen Modus sollte man aber meiner  Meinung nach  nur ein-"
  77. PRINT "        schalten wenn  man sich weiterbilden will, da man  sonst bald alle"
  78. PRINT "        Antworten auswendig kennt und sich so selbst den Spaß nimmt."
  79. GOTO Blaettern
  80.  
  81. Seite4:
  82. PRINT
  83. PRINT "     In jedem Spielmodus (1-Spieler-Spiel, 2-Spieler, 3...)  gibt es  eine"
  84. PRINT "     Höchstpunktezahl, die der Computer speichert.  Die High-Scores können"
  85. PRINT "     jederzeit durch Laden von `Champs' betrachtet werden.  Falls Sie eine"
  86. PRINT "     neue Highscore aufstellen wird das Programm Sie nach Ihren Namen fra-"
  87. PRINT "     gen und diesen anschließend speichern."
  88. PRINT
  89. PRINT
  90. PRINT "     Die Anzahl der in QUIZMASTER  schon enthaltenen Fragen kann jederzeit"
  91. PRINT "     gesteigert werden. Sie müßen Ihre Fragen nur mit dem auf der Diskette"
  92. PRINT "     enthaltenen Editor eingeben,  Sie können die Fragen aber  auch anders"
  93. PRINT "     speichern. Die notwendige Form ist Folgende:
  94. PRINT "         Daten$=frage$+`?'+ant$(1)+`?'+ant$(2)+...+ant$(4)+`?'+zahl"
  95. PRINT "     Der String besteht aus 6 Teilen,nämlich der Frage (frage$(Ohne Frage-"
  96. PRINT "     zeichen am Schluß)),den 4 Antworten {ant$(1)-ant$(4)}  und der Nummer"
  97. PRINT "     der richtigen Antwort (zahl). Diese Teile MÜSSEN  durch ein Fragezei-"
  98. PRINT "     chen getrennt sein."
  99. PRINT "     Ein Beispiel für einen gültigen Daten-String wäre:
  100. PRINT "      Daten$=`Wer wurde älter?Caesar?Nero?Methusalem?Strauß?3'"
  101. PRINT "     Dieser Daten$ muß nun in der Schublade `FRAGEN' unter folgenden Namen"
  102. PRINT "     gespeichert werden:  `QM.nr' ,wobei nr die Nummer der Frage ist (Also"                              
  103. PRINT "     z.B. `QM.5' oder `QM.294')."
  104. GOTO Blaettern
  105.  
  106. Seite5:
  107. PRINT
  108. PRINT "   Die Zahl der Joker,  der Risiken und der maximalen Fragennummer  können"
  109. PRINT "   Sie folgendermaßen ändern:"
  110. PRINT "     Ganz am  Anfang des Hauptprogramms QUIZMASTER  befindet sich folgende"
  111. PRINT "     Stelle:
  112. PRINT "               :
  113. PRINT "               ::                :
  114. PRINT "                                ::      : : :
  115. PRINT "               joker  =   5    : :     : : :
  116. PRINT "               risiko =  10   :  ::::::::::
  117. PRINT "               max    = 292    : :     : : :
  118. PRINT "                                ::      : : :
  119. PRINT "               ::                :
  120. PRINT "               :
  121. PRINT "     Sie können nun die Werte der Variablen abändern, wobei joker die Zahl"
  122. PRINT "     der Joker,risiko die Zahl der Risiken und max die Zahl der Fragen be-"
  123. PRINT "     inhaltet.    MERKE: max darf nie größer als die Zahl der auf der Disk"
  124. PRINT "                         enthaltenen Zahlen sein !"
  125. PRINT
  126. PRINT
  127. PRINT "   Alle Funktionen die zum Spielen nötig sind werden über den Joystick in #2"
  128. PRINT "   angewählt, wodurch die  Handhabung des  Programms äußerst komfortabel und"
  129. PRINT "   leicht zu erlernen ist."
  130. GOTO Blaettern
  131. Seite6:
  132. PRINT
  133. PRINT "         Nun bleibt mir nur noch  Ihnen viel Spaß mit Ihrem neuen"
  134. PRINT "         Programm zu wünschen."
  135. PRINT "         Die  300 bereits vorhandenen Fragen  sind aus allen mög-"
  136. PRINT "         lichen Wissensgebieten zusammengestellt und haben keinen"
  137. PRINT "         einheitlichen Schwierigkeitsgrad."
  138. PRINT 
  139. PRINT 
  140. PRINT 
  141. PRINT 
  142. PRINT "                    Blättern Sie eine Seite vor um die"
  143. PRINT "                         Information zu beenden."
  144. GOTO Blaettern                                                    
  145.  
  146. Blaettern:
  147. LOCATE 25:COLOR 1,2
  148. PRINT "   <- eine Seite zurück                                    eine Seite vor ->   "
  149. COLOR 1,0
  150. Loop:
  151. a$=INKEY$:IF a$="" THEN Loop
  152. IF a$=CHR$(30) THEN seite=seite+1:GOTO Loop2
  153. IF a$=CHR$(31) THEN seite=seite-1:GOTO Loop2
  154. GOTO Loop
  155. Loop2:
  156. IF seite=-1 THEN seite=0:SOUND 400,1:SOUND 600,1:SOUND 500,1:GOTO Loop
  157. LINE (1,1)-(640,188),0,bf
  158. LOCATE 1
  159. SOUND 250,1:SOUND 200,1
  160. IF seite=0 THEN GOTO Seite1
  161. IF seite=1 THEN GOTO Seite2
  162. IF seite=2 THEN GOTO Seite3
  163. IF seite=3 THEN GOTO Seite4
  164. IF seite=4 THEN GOTO Seite5
  165. IF seite=5 THEN GOTO Seite6
  166. CLS
  167.